"[.cbind.createTable"<-function(x,i,...){
y<-x
for (kk in 1:length(y))
y[[kk]]<-y[[kk]][i]
attributes(y)<-attributes(x)
y
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.